COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "AER"
C00004 ENDMK
C⊗;
BEGIN "AER"
REQUIRE "PIXHDR.SAI[VIS,HPM]" SOURCE_FILE;
INTEGER BRCHAR,EOF,FLAG,ISTART,JSTART,I,J,II,JJ;  STRING OFL,OFLT,INFL;
   BEGIN
   INTEGER ARRAY P[0:PIXDIM(256,256,9)];

   MAKPIX(256,256,9,P[0]);
   OPEN(0,"UDP2",8,2,0,1,BRCHAR,EOF);
   DO BEGIN OUTSTR("INPUT FILE: ");LOOKUP(0,INFL←INCHWL,FLAG) END UNTIL ¬FLAG;
   CLOSE(0);

   OUTSTR("OUTPUT FILES:"); OFLT←INCHWL;
   OFL←"";  WHILE OFLT≠"*" DO OFL←OFL&LOP(OFLT);  I←LOP(OFLT);
   CLOSE(0);

   FOR II←0 STEP 1 UNTIL 3 DO
   FOR JJ←0 STEP 1 UNTIL 3 DO
      BEGIN
      INTEGER I,J,X;
      OPEN(0,"UDP2",8,2,0,1,BRCHAR,EOF);
      LOOKUP(0,INFL,FLAG);
      PRINT(" STARTING TO WORK ON PICTURE ",II,JJ,'15&'12);
      FOR I←0 STEP 1 UNTIL 255 DO
         BEGIN
         USETI(0,((II*256+I)*512+JJ*128)%128+1);
         FOR J←0 STEP 2 UNTIL 255 DO
            BEGIN
            X←WORDIN(0);
            PUTEL(P[0],I,J,((X+'20000000) LSH -23) XOR '777);
            PUTEL(P[0],I,J+1,((X+'100) LSH -7) XOR '777);
            END;
         END;
      CLOSE(0);
      PUTPFL(P[0],OFL&CVS(II)&CVS(JJ)&OFLT);
      END
   END;
END;